﻿Imports Entidad
Imports Negocio
Imports Utilitario
Public Class frmBandeja

    Dim servicio As New BarraNegocio

    Dim contador As Integer = 0
    Dim condicion As Boolean = False

    Private articulo As String
    Private cantidad As Decimal

    Sub mensaje(ByVal men As String)
        MsgBox(men, MsgBoxStyle.Information, "Mensajes al Usuario")
    End Sub

    Private Sub btnCancelar_Click(sender As System.Object, e As System.EventArgs) Handles btnCancelar.Click
        clbBandejas.Items.Clear()
        DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub

    Private Sub clbBandejas_SelectedValueChanged(sender As Object, e As System.EventArgs) Handles clbBandejas.SelectedValueChanged
        If MsgBox("¿Esta seguro que desea elegir la " & clbBandejas.SelectedItem & " ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2, "Mensajes al Usuario") = MsgBoxResult.Yes Then
            codBandeja = clbBandejas.SelectedItem
            DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub

End Class